home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_gen / t4diblib.zip / T4DILIB.BI < prev    next >
Text File  |  1996-04-10  |  1KB  |  44 lines
  1. Option Explicit
  2. DefInt A-Z
  3. Global Const imMemberSize = 32 '/* Max length of member name.*/
  4.  
  5. Type BITMAPINFOHEADER
  6.  biSize          As Long     'DWORD
  7.  biWidth         As Long     'LONG
  8.  biHeight        As Long     'LONG
  9.  biPlanes        As Long     'WORD
  10.  biBitCount      As Integer  'WORD
  11.  biCompression   As Long     'DWORD
  12.  biSizeImage     As Long     'DWORD
  13.  biXPelsPerMeter As Long     'LONG
  14.  biYPelsPerMeter As Long     'LONG
  15.  biClrUsed       As Long     'DWORD
  16.  biClrImportant  As Long     'DWORD
  17. End Type
  18.  
  19. 'LibraryType Property
  20. Global Const IM_LIBTYPE_PRIVATE = 0
  21. Global Const IM_LIBTYPE_PUBLIC = 1
  22. 'ControlMode Property
  23. Global Const IM_CM_LIB_TO_PIC = 0
  24. Global Const IM_CM_LIB_TO_DIB = 1
  25. Global Const IM_CM_LIB_TO_PICDIB = 2
  26. Global Const IM_CM_LIB_TO_DIBPIC = 2
  27. Global Const IM_CM_DIB_TO_PIC = 3
  28.  
  29. 'Action Property
  30. Global Const IM_ACTION_OPENLIBRARY = 1
  31. Global Const IM_ACTION_CLOSELIBRARY = 3
  32. Global Const IM_ACTION_GETMEMBER = 4
  33.  
  34. ' T4DIBLIB.VBX Functions and Subroutines
  35. Declare Sub dilibFreeDib Lib "T4DILIB.VBX" (ByVal hDib%)
  36. Declare Function dilibIshDibValid% Lib "T4DILIB.VBX" (ByVal hDib%)
  37. Declare Function dilibIshLibValid% Lib "T4DILIB.VBX" (ByVal hLib%)
  38. Declare Function dilibMakeDuplicateDIB% Lib "T4DILIB.VBX" (ByVal hDib%)
  39.  
  40. ' Utility Windows Routines
  41. Declare Function GlobalFree% Lib "Kernel" (ByVal hMem%)
  42. Declare Function GetFreeSpace& Lib "Kernel" (ByVal zero%)
  43.  
  44.